﻿Imports Commander_Wars.Spieletools
#Region "Will"
''' <summary>
''' Wird zu erstellen des KO's Will verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOWill
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "WILL"
        Armee = Armeen.IB.ToString
        Musik = "Will"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Bewegungsbonus = Nothing
                OffensivStaerke = New FeuerkrafttabellePanzer120OhneSchwaeche
                If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
                    'Dafuer sinkt die Feuerkraft aber drastisch
                    WetterReichweitenbonus(0) = 0
                End If
            Case Else
                Bewegungsbonus = Nothing
                OffensivStaerke = New FeuerkrafttabellePanzer110OhneSchwaeche
                If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
                    'Dafuer sinkt die Feuerkraft aber drastisch
                    WetterReichweitenbonus(0) = 0
                End If
        End Select

    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.Ground, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        OffensivStaerke = New FeuerkrafttabellePanzer120OhneSchwaeche
        If OhneFunktion = False Then
            AnimationEigenePanzer("MAXGABE", 2)
        End If
        Bewegungsbonus = New BewegungsboniTabellePanzer_1
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                OffensivStaerke = New FeuerkrafttabellePanzer120OhneSchwaeche
                If OhneFunktion = False Then
                    AnimationEigenePanzer("MAXGABE", 2)
                End If
                Bewegungsbonus = New BewegungsboniTabellePanzer_1
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                If OhneFunktion = False Then
                    AnimationEigenePanzer("SPEZIALGABE", 2)
                End If
                Bewegungsbonus = New BewegungsboniTabellePanzer_2
            Case Else
                OffensivStaerke = New FeuerkrafttabellePanzer140OhneSchwaeche
                If OhneFunktion = False Then
                    AnimationEigenePanzer("SPEZIALGABE", 2)
                End If
                Bewegungsbonus = New BewegungsboniTabellePanzer_2
        End Select


        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungWill
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Will"
        Fein = "Frieden"
        Nein = "Krieg"
        Beschreibung = New String() {"Mitglied der unabhaengigen Truppe. Zieht mit O'Brian, seinem Lebensretter."}
        Stil = New String() {"Landeinheiten mit Direktangriff sind staerker als anderer,."}
        Gabebeschreibung = New String() {"Radius von Bodentruppen mit Direktangriff steigt um 1."}
        SpezialgabeBeschreibung = New String() {"Radius von Bodentruppen mit Direktangriff steigt um 2."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Neue Zeit", "Neue Aera"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Fuer den Frieden." _
                                , "Es wird weitergehen." _
                                , "Ihr koennt uns nicht besiegen." _
                                , "Kaempft fuer eure Freiheit." _
                                , "Solange man nicht aufgibt..." _
                                , "Fuer O'Brian."}
        Siegsaetze = New String() {"Ich werde nicht aufgeben." _
                                , "Fuer den Frieden in dieser Welt." _
                                , "Jetzt kann die Welt wieder aufatmen."}
        Tauschsaetze = New String() {"Ich werde alles geben." _
                                    , "Ihr werdet es bereuen den Frieden zu stoeren."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Brenner"
''' <summary>
''' Wird zu erstellen des KO's Brenner verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOBrenner
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "BRENNER"
        Armee = Armeen.IB.ToString
        Musik = "Brenner"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Zusatzdeffensive.X = 20
                Zusatzdeffensive.Y = 20
            Case Else
                Zusatzdeffensive.X = 10
                Zusatzdeffensive.Y = 5
        End Select

        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Zusatzdeffensive.X = 20
        Zusatzdeffensive.Y = 20
        If OhneFunktion = False Then
            EigeneEinheitenHeilen(2)
            AnimationEigenePanzer("ANDYGABE", 2)
        End If

        GabeEingesetzt()
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Return Nothing
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamage(2, KOCustom.Power.PowerScript.EffectMassDamage.DamageUnit.Own))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Zusatzdeffensive.X = 20
                Zusatzdeffensive.Y = 20
                If OhneFunktion = False Then
                    EigeneEinheitenHeilen(2)
                    AnimationEigenePanzer("ANDYGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                If OhneFunktion = False Then
                    EigeneEinheitenHeilen(3)
                    AnimationEigenePanzer("SPEZIALGABE", 2)
                End If
            Case Else
                Zusatzdeffensive.X = 30
                Zusatzdeffensive.Y = 30
                If OhneFunktion = False Then
                    EigeneEinheitenHeilen(5)
                    AnimationEigenePanzer("ANDYGABE", 2)
                End If

        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungBrenner
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Brenner"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {"Mitglied der unabhaengigen Truppe. Gibt niemanden auf. Glaubt an das Gute."}
        Stil = New String() {"Seine Truppen besitzen eine deutlich hoehere Verteidigung."}
        Gabebeschreibung = New String() {"Seine Truppen erhalten TP zurueck."}
        SpezialgabeBeschreibung = New String() {"Seine Truppen erhalten TP zurueck und sind besser geschuetzt."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Reperatur", "Wieder Aufbau"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Hoert ihr? Nie aufgeben." _
                                , "Ich rette euch." _
                                , "Helft denen dort drueben." _
                                , "Sanitaeter dort rueber." _
                                , "Helft allen verwundeten." _
                                , "Kuemmert euch um die schwachen."}
        Siegsaetze = New String() {"Jetzt koennt ihr wieder in Fireden leben." _
                                , "Das Gute hat gesiegt." _
                                , "Wir haben es geschafft."}
        Tauschsaetze = New String() {"Nun werde ich mich um die Probleme kuemmern." _
                                    , "Ich werde allen helfen."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Lin"
''' <summary>
''' Wird zu erstellen des KO's Lin verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOLin
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "LIN"
        Armee = Armeen.IB.ToString
        Musik = "Lin"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 1
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleBoden120
                OffensivStaerke = New FeuerkrafttabelleBoden120
                Sichtbonus = 0
                RiffWaldSchauer = False
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleBoden105
                OffensivStaerke = New FeuerkrafttabelleBoden110
                Sichtbonus = 0
                RiffWaldSchauer = False
        End Select


        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.Ground, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Sichtbonus = 1
        RiffWaldSchauer = True
        DeffensivStaerke = New FeuerkrafttabelleBoden110
        OffensivStaerke = New FeuerkrafttabelleBoden120
        If OhneFunktion = False Then
            BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
        End If

        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sichtbonus = 1
                RiffWaldSchauer = True
                DeffensivStaerke = New FeuerkrafttabelleBoden110
                OffensivStaerke = New FeuerkrafttabelleBoden120
                If OhneFunktion = False Then
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Sichtbonus = 2
                RiffWaldSchauer = True
                If OhneFunktion = False Then
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case Else
                Sichtbonus = 2
                RiffWaldSchauer = True
                DeffensivStaerke = New FeuerkrafttabelleBoden120
                OffensivStaerke = New FeuerkrafttabelleBoden130
                If OhneFunktion = False Then
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
        End Select



        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungLin
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Lin"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Ihre Truppen sind stärker wie die Einheiten der meisten anderen KO's."}
        Gabebeschreibung = New String() {"Die Sicht ihre Truppen steigt und sie haben eine erhoehte Offensive und Deffensive"}
        SpezialgabeBeschreibung = New String() {"Die Sicht ihre Truppen steigt stark und sie haben eine erhoehte Offensive und Deffensive"}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Spaeher", "Kundschafter"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Isabella"
''' <summary>
''' Wird zu erstellen des KO's Isabella verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOIsabella
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ISABELLA"
        Armee = Armeen.IB.ToString
        Musik = "Isabella"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 2
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        DeffensivStaerke = New Feuerkrafttabelle110
        OffensivStaerke = Nothing
        Reichweite = 0
        Bewegungsbonus = Nothing
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New Feuerkrafttabelle110
        OffensivStaerke = New Feuerkrafttabelle110
        Reichweite = 1
        Bewegungsbonus = New BewegungsboniTabelleFern_1
        If OhneFunktion = False Then
            AnimationEigeneFernkampf("KIDGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New Feuerkrafttabelle110
                OffensivStaerke = New Feuerkrafttabelle110
                Reichweite = 1
                Bewegungsbonus = New BewegungsboniTabelleFern_1
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("KIDGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Reichweite = 2
                Bewegungsbonus = New BewegungsboniTabelleFern_2
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("SPEZIALGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New Feuerkrafttabelle120
                OffensivStaerke = New Feuerkrafttabelle120
                Reichweite = 2
                Bewegungsbonus = New BewegungsboniTabelleFern_2
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("KIDGABE", 2)
                End If
        End Select


        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungIsabella
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Isabella"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Ihre Truppen haben eine erhöhte Deffensive."}
        Gabebeschreibung = New String() {"Fernwaffen sind stärker und können weiter feuern"}
        SpezialgabeBeschreibung = New String() {"Fernwaffen sind noch stärker und können noch weiter Feuern."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Fester Schlag", "Tiefer Schlag"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Tasha"
''' <summary>
''' Wird zu erstellen des KO's Tasha verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOTasha
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "TASHA"
        Armee = Armeen.LZ.ToString
        Musik = "Tasha"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 1
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft140OhneSchwaeche
                Bewegungsbonus = Nothing
            Case Else
                DeffensivStaerke = Nothing
                OffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
                Bewegungsbonus = Nothing
        End Select
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.Air, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New FeuerkrafttabelleLuft110OhneSchwaeche
        OffensivStaerke = New FeuerkrafttabelleLuft130OhneSchwaeche
        Bewegungsbonus = New BewegungsboniTabelleLuft_1
        If OhneFunktion = False Then
            AnimationEigeneLuftkampf("EAGLEGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New FeuerkrafttabelleLuft110OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft130OhneSchwaeche
                Bewegungsbonus = New BewegungsboniTabelleLuft_1
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("EAGLEGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Bewegungsbonus = New BewegungsboniTabelleLuft_2
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleLuft130OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft140OhneSchwaeche
                Bewegungsbonus = New BewegungsboniTabelleLuft_2
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("EAGLEGABE", 2)
                End If
        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungTasha
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Tasha"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Ihre Luftwaffe besitzt eine überlegene Feuerkraft"}
        Gabebeschreibung = New String() {"Ihre Luftwaffe kann weiter fliegen und erhählt verbesserte Verteidigung und Offensive."}
        SpezialgabeBeschreibung = New String() {"Ihre Luftwaffe zieht weiter und besitzt eine überlegene Feuerkraft udn Verteidigung."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Sonic Flash", "Sonic Boom"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Gage"
''' <summary>
''' Wird zu erstellen des KO's Gage verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOGage
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "GAGE"
        Armee = Armeen.LZ.ToString
        Musik = "Gage"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleFernkampf_See_110
                OffensivStaerke = New FeuerkrafttabelleFernkampf_See_120
                Reichweite = 0
            Case Else
                DeffensivStaerke = Nothing
                OffensivStaerke = New FeuerkrafttabelleFernkampf_See_110
                Reichweite = 0
        End Select
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.IndirectSea, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New FeuerkrafttabelleFernkampf_See_110
        OffensivStaerke = New FeuerkrafttabelleFernkampf_See_120
        Reichweite = 1
        If OhneFunktion = False Then
            AnimationEigeneFernkampf("KIDGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New FeuerkrafttabelleFernkampf_See_110
                OffensivStaerke = New FeuerkrafttabelleFernkampf_See_120
                Reichweite = 1
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("KIDGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                Reichweite = 2
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("SPEZIALGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleFernkampf_See_130
                OffensivStaerke = New FeuerkrafttabelleFernkampf_See_140
                Reichweite = 2
                If OhneFunktion = False Then
                    AnimationEigeneFernkampf("SPEZIALGABE", 2)
                End If
        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungGage
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Gage"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Seine Seeeinheiten und Fernkampfeinheiten sind stärker."}
        Gabebeschreibung = New String() {"Die Reichweite seiner Fernkampfeinheiten steigt. Außerdem steigt die Kampfkraft seiner Seeeinheiten."}
        SpezialgabeBeschreibung = New String() {"Die Reichweite seiner Fernkampfeinheiten steigt enorm. Außerdem steigt die Kampfkraft seiner Seeeinheiten weiter an."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Sonic Flash", "Sonic Boom"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Carter"
''' <summary>
''' Wird zu erstellen des KO's Carter verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOCarter
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "CARTER"
        Armee = Armeen.LZ.ToString
        Musik = "Carter"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 0
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 5
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New Feuerkrafttabelle110
                OffensivStaerke = New Feuerkrafttabelle110
                Reichweite = 0
            Case Else
                DeffensivStaerke = New Feuerkrafttabelle110
                OffensivStaerke = New Feuerkrafttabelle110
                Reichweite = 0
        End Select

        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub



    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New Feuerkrafttabelle120
        OffensivStaerke = New Feuerkrafttabelle120
        If OhneFunktion = False Then
            AnimationEigeneLuftkampf("KANBEIGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New Feuerkrafttabelle120
                OffensivStaerke = New Feuerkrafttabelle120
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("KANBEIGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New Feuerkrafttabelle140
                OffensivStaerke = New Feuerkrafttabelle140
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungCarter
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Carter"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Seine Truppen haben überlegen Feuerkraft und Verteidigung"}
        Gabebeschreibung = New String() {"Seine Truppen werden deutlich stärker."}
        SpezialgabeBeschreibung = New String() {"Seine Truppen erhalten stark erhöhte Feuerkaft und Verteidigung."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Energieschub", "Superkraft"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Waylon"
''' <summary>
''' Wird zu erstellen des KO's Waylon verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOWaylon
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "WAYLON"
        Armee = Armeen.NR.ToString
        Musik = "Waylon"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 2
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft110OhneSchwaeche
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleLuft130OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft110OhneSchwaeche
        End Select

        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.Air, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New FeuerkrafttabelleLuft270OhneSchwaeche
        If OhneFunktion = False Then
            AnimationEigeneLuftkampf("KANBEIGABE", 2)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New FeuerkrafttabelleLuft270OhneSchwaeche
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("KANBEIGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleLuft270OhneSchwaeche
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleLuft320OhneSchwaeche
                OffensivStaerke = New FeuerkrafttabelleLuft120OhneSchwaeche
                If OhneFunktion = False Then
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungWaylon
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Waylon"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Seine Luftwaffe hat eine starke Verteidigung."}
        Gabebeschreibung = New String() {"Seine Luftwaffe hat eine noch bessere Verteidigung."}
        SpezialgabeBeschreibung = New String() {"Seine Luftwaffe hat eine extrem hohe Verteidigung."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Flugschlag", "Fluegelmann"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Greyfield"
''' <summary>
''' Wird zu erstellen des KO's Greyfield verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOGreyfield
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "GREYFIELD"
        Armee = Armeen.NR.ToString
        Musik = "Greyfield"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 3
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                DeffensivStaerke = New FeuerkrafttabelleLuft_See_140
                OffensivStaerke = New FeuerkrafttabelleLuft_See_110
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleLuft_See_120
                OffensivStaerke = Nothing
        End Select
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Function GetBaublockade(ByVal Spieler As Integer) As Baublockade
        Return New Baublockade(Baublockade.BauBlockade.AirSea, Spieler)
    End Function

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        DeffensivStaerke = New FeuerkrafttabelleLuft_See_140
        OffensivStaerke = New FeuerkrafttabelleLuft_See_110
        If OhneFunktion = False Then
            VollRation()
            AnimationEigeneLuftkampf("KANBEIGABE", 2)
        End If
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Return Nothing
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRation)
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                DeffensivStaerke = New FeuerkrafttabelleLuft_See_140
                OffensivStaerke = New FeuerkrafttabelleLuft_See_110
                If OhneFunktion = False Then
                    VollRation()
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                If OhneFunktion = False Then
                    VollRation()
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
            Case Else
                DeffensivStaerke = New FeuerkrafttabelleLuft_See_160
                OffensivStaerke = New FeuerkrafttabelleLuft_See_120
                If OhneFunktion = False Then
                    VollRation()
                    AnimationEigeneLuftkampf("SPEZIALGABE", 2)
                End If
        End Select
        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungGreyfield
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Greyfield"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Seine See- und Lufteinheiten sind extrem stark."}
        Gabebeschreibung = New String() {"Alle Einheiten erhalten Ration und See- und Lufteinheiten kämpfen besser."}
        SpezialgabeBeschreibung = New String() {"Alle Einheiten erhalten Ration und See- und Lufteinheiten kämpfen noch besser."}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Auffuellung", "Rationsregen"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Penny"
''' <summary>
''' Wird zu erstellen des KO's Penny verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOPenny
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "PENNY"
        Armee = Armeen.DV.ToString
        Musik = "Penny"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 3
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Wetterimmunitaet = New ObjektSpielfeld.Wetterarten() {ObjektSpielfeld.Wetterarten.Sandsturm, ObjektSpielfeld.Wetterarten.Regen, ObjektSpielfeld.Wetterarten.Schnee}
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Select Case Zufallszahl(0, 2)
                Case 0
                    WetterAendern(ObjektSpielfeld.Wetterarten.Regen, 3)
                Case 1
                    WetterAendern(ObjektSpielfeld.Wetterarten.Schnee, 3)
                Case 2
                    WetterAendern(ObjektSpielfeld.Wetterarten.Sandsturm, 3)
            End Select
            BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                If OhneFunktion = False Then
                    Select Case Zufallszahl(0, 2)
                        Case 0
                            WetterAendern(ObjektSpielfeld.Wetterarten.Regen, 3)
                        Case 1
                            WetterAendern(ObjektSpielfeld.Wetterarten.Schnee, 3)
                        Case 2
                            WetterAendern(ObjektSpielfeld.Wetterarten.Sandsturm, 3)
                    End Select
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                If OhneFunktion = False Then
                    Select Case Zufallszahl(0, 2)
                        Case 0
                            WetterAendern(ObjektSpielfeld.Wetterarten.Regen, 3)
                        Case 1
                            WetterAendern(ObjektSpielfeld.Wetterarten.Schnee, 3)
                        Case 2
                            WetterAendern(ObjektSpielfeld.Wetterarten.Sandsturm, 3)
                    End Select
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case Else
                If OhneFunktion = False Then
                    Dim WZeit As Integer = 2
                    AnimationFeindliche("SPEZIALGABE", WZeit)
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                    AlleFeindeBeschaedigen(2)
                    Select Case Zufallszahl(0, 2)
                        Case 0
                            WetterAendern(ObjektSpielfeld.Wetterarten.Regen, 3)
                        Case 1
                            WetterAendern(ObjektSpielfeld.Wetterarten.Schnee, 3)
                        Case 2
                            WetterAendern(ObjektSpielfeld.Wetterarten.Sandsturm, 3)
                    End Select
                End If
        End Select

        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungPenny
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Penny"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Ihre Truppen werden durch kein Wetter beeinflusst."}
        Gabebeschreibung = New String() {"Das Wetter ändert sich zufällig."}
        SpezialgabeBeschreibung = New String() {"Das Wetter ändert sich und alle Gegner nehmen 2TP Schaden.!"}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Wetterfront", "Sturmfront"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Tabitha"
''' <summary>
''' Wird zu erstellen des KO's Tabitha verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOTabitha
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "TABITHA"
        Armee = Armeen.DV.ToString
        Musik = "Tabitha"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 9
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                KORange = 0
        End Select
        KORange = 0
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                OffensivStaerke = New Feuerkrafttabelle150
                DeffensivStaerke = New Feuerkrafttabelle150
                If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
                    'Dafuer sinkt die Feuerkraft aber drastisch
                    WetterReichweitenbonus(0) = 0
                End If
            Case Else
                OffensivStaerke = New FeuerkrafttabelleTeureEinheiten
                DeffensivStaerke = New FeuerkrafttabelleTeureEinheitenDeffensive
                If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
                    'Dafuer sinkt die Feuerkraft aber drastisch
                    WetterReichweitenbonus(0) = 0
                End If
        End Select

    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)

    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Return Nothing
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectRocket(8, "RAKETE", 2, Effekte.Keiner, 0))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                If OhneFunktion = False Then
                    Rakete(4, "LAND", 2, Effekte.Keiner)
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                If OhneFunktion = False Then
                    Rakete(8, "LAND", 2, Effekte.Keiner)
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
            Case Else
                OffensivStaerke = New Feuerkrafttabelle140
                DeffensivStaerke = New Feuerkrafttabelle140
                If OhneFunktion = False Then
                    Rakete(8, "LAND", 2, Effekte.Keiner)
                    BackbufferSpiel.AddAnimation("SCREENFLASH", 0, New Point, True, ObjektSpielfeld.TopLayer)
                End If
        End Select

        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class
Public Class KOBeschreibungTabitha
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Tabitha"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {""}
        Stil = New String() {"Sie besitzt eine extrem starke Einheit"}
        Gabebeschreibung = New String() {""}
        SpezialgabeBeschreibung = New String() {"Eine mächtige Rakete schlägt am Zielort ein.!"}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"", "Feuersturm"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"..." _
                                , "..." _
                                , "..."}
        Tauschsaetze = New String() {"..." _
                                    , "..."}
        Doppelgabesaetze = New DoppelGabesatz() {}
    End Sub
End Class
#End Region
#Region "Caulder"
''' <summary>
''' Wird zu erstellen des KO's Caulder verwendet copyright Nintendo und Intelligent System
''' </summary>
''' <remarks></remarks>
Public Class KOCaulder
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "CAULDER"
        Armee = Armeen.DV.ToString
        Musik = "Caulder"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 0
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 8
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()


        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWarsDC, CommanderWarsGameModi.CommanderWars2
                OffensivStaerke = New Feuerkrafttabelle150
                DeffensivStaerke = New Feuerkrafttabelle150
                'Dafuer sinkt die Feuerkraft aber drastisch
                WetterReichweitenbonus(0) = 0
            Case Else
                OffensivStaerke = Nothing
                DeffensivStaerke = New Feuerkrafttabelle120
        End Select

    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)

    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 0
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectHealCORange(5))
                Return P
            Case 1
                Return Nothing
            Case 2
                Return Nothing
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                EigeneEinheitenHeilen(2)
            Case CommanderWarsGameModi.CommanderWars2
                OffensivStaerke = New Feuerkrafttabelle150
                DeffensivStaerke = New Feuerkrafttabelle150
                If OhneFunktion = False Then
                    EigeneEinheitenHeilen(5)
                    AnimationEigene("ANDYGABE", 2)
                End If
            Case Else
                OffensivStaerke = New Feuerkrafttabelle150
                DeffensivStaerke = New Feuerkrafttabelle150
                If OhneFunktion = False Then
                    EigeneEinheitenHeilen(5)
                    AnimationEigene("ANDYGABE", 2)
                End If
        End Select

        GabeEingesetzt()
    End Sub
    Public Overrides Sub KOFrame()
        Select Case Objektverwalter.Spielfeld.Regeln.KOSystem
            Case KOSysteme.KO_Modus, KOSysteme.CoW_Hybrid
                Dim E As ObjektEinheit = Objektverwalter.Spielfeld.Spieler(Spieler).KOS(0).GetKOUnit
                Dim WZeit As Integer = 4
                If Not E Is Nothing Then
                    'Caulder heilt sich
                    Objektverwalter.ZuFeldgehen(E.X, E.Y)
                    Dim R As Integer = GetKORange()


                    Dim L As ObjektLandschaft = Wegsuchsystem.getFeldRundrum(E.X, E.Y, E.GetMap, 0, R, Nothing, Objektverwalter.Spielfeld)
                    Do Until L Is Nothing
                        Dim E2 As ObjektEinheit = Objektverwalter.Spielfeld.Einheiten(L.KooX, L.KooY, E.GetMap)
                        If Not E2 Is Nothing Then
                            If E2.Spieler = Spieler Then
                                BackbufferSpiel.AddAnimation("ANDYGABE", WZeit, New Point(L.KooX, L.KooY), True, E.GetMap)
                                WZeit += 4
                                For I2 = 0 To 4
                                    Objektverwalter.Heilen(E2)
                                Next
                            End If
                        End If
                        L = Wegsuchsystem.getFeldRundrum(E.X, E.Y, E.GetMap, 0, R, L, Objektverwalter.Spielfeld)
                    Loop
                End If
            Case Else
                Dim WZeit As Integer = 4
                For Each Einheit In Objektverwalter.Spielfeld.Einheiten
                    If Not Einheit Is Nothing Then
                        If Einheit.Spieler = Spieler Then
                            BackbufferSpiel.AddAnimation("ANDYGABE", WZeit, New Point(Einheit.X, Einheit.Y), True, Einheit.GetMap)
                            WZeit += 4
                            For I2 = 0 To 1
                                Objektverwalter.Heilen(Einheit)
                            Next
                        End If
                    End If
                Next
        End Select
    End Sub
End Class
Public Class KOBeschreibungCaulder
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Dr. Caulder"
        Fein = "Forschung"
        Nein = "Moral"
        Beschreibung = New String() {"Der Chef von IDS. Er hat keine ethischen Vorstellungen"}
        Stil = New String() {"Seine Truppen sind extrem stark und koennen sich Selbst heilen"}
        Gabebeschreibung = New String() {"Keine Gabe."}
        SpezialgabeBeschreibung = New String() {"Seine Truppen heilen sich und werden extrem stark."}
        GabeKosten = 0
        Spezialgabekosten = 8
        Gaben = New String() {"", "Grosse Energiewelle"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"Diese neue Waffe wie funktioniert sie im Kampf?" _
                                , "Zeit fuer ein neues Experiment." _
                                , "Dieses Gift...wie fuehlt es sich an." _
                                , "Mach dich bereit Teil meines Experimentes zu werden." _
                                , "Wissenschaft. Braucht keine Regeln. Wir wollen schliesslich weiter kommen." _
                                , "Faszinierend."}
        Siegsaetze = New String() {"Interresante Forschungsarbeit." _
                                , "Nun, weiss ich wie Menschen reagieren, wenn sie verlieren." _
                                , "Nun, kann ich euch fuer mein naechstes Experiment verwenden."}
        Tauschsaetze = New String() {"Du hast Angst diese Waffe zu benutzen? Ich nicht..." _
                                    , "Jetzt kann ich noch mehr forschen."}
        Doppelgabesaetze = New DoppelGabesatz() {}
        Niederlagesaetze = New String() {"Nun, ich habe verloren, aber ich habe gelernt wie ihr mich fuerchtet.", _
                                        "Nein, ich habe verloren. Ich moechte nicht herausfinden, wie es sich anfuehlt zu sterben."}
    End Sub
End Class
#End Region
#Region "Kein KO"
''' <summary>
''' 
''' </summary>
''' <remarks></remarks>
Public Class KOKeinKO
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Private Sub StartwerteLaden()
        KOID = "KEINKO"
        Armee = Armeen.OS.ToString
        Musik = "Andy"
        Bild = GetBildID()
        Sternkosten = 0
        Gabekosten = 0
        SpezialgabeKosten = 0
        Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub
    Public Overrides Sub KOLaden()

    End Sub
    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
    End Sub
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
    End Sub
    Public Overrides Sub KOFrame()
        'Do Nothing
    End Sub
End Class
Public Class KOBeschreibungKeinKO
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Kein KO"
        Fein = ""
        Nein = ""
        Beschreibung = New String() {"Kein KO befehligt diese Armee"}
        Stil = New String() {"Kein KO befehligt diese Armee"}
        Gabebeschreibung = New String() {"Wir haben keine Gabe"}
        SpezialgabeBeschreibung = New String() {"Wir haben keine Spezialgabe"}
        GabeKosten = 3
        Spezialgabekosten = 3
        Gaben = New String() {"Keine Gabe", " Keine Spezialgabe"}
        Synergie = New Decimal() {}
        KONamen = New String() {}
        Doppelgabenamen = New String() {}
        Gabesaetze = New String() {"..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..." _
                                , "..."}
        Siegsaetze = New String() {"Die Soldaten waren Siegreich" _
                                , "Die Armee hat gewonnen" _
                                , "Sieg für die Truppen"}
        Tauschsaetze = New String() {"KO tritt ab." _
                                    , "Niemand übernimmt die Führung"}
        Doppelgabesaetze = New DoppelGabesatz() {}
		Niederlagesaetze = New String() {"Die Armee hat verloren.", _
                                        "Alle Soldaten fielen im Kampf."}
    End Sub
End Class
#End Region